home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 42
/
Amiga Format AFCD42 (Issue 126, Aug 1999).iso
/
-serious-
/
archivers
/
xpkatana
/
install
/
norsk
< prev
next >
Wrap
Text File
|
1999-05-14
|
4KB
|
170 lines
; XPKatana Installer Script
; $Ver: 1.0 (28.11.95)
; Written by Philip A. Vedovatti
; Norsk translation by: Petter Nilsen
(set #bad-kick
(cat "\n\nBeklager! Du må ha Workbench 2.0 eller "
"høyere installert for å bruke denne pakken. "))
(set #hello-message
(cat "\n\n\"Kutt filene dine til småbiter!\""
"\n\nVelkommen til Installer skripted for XPKatana."
"\n\nVennligst les dokumentasjonen for å få mest mulig"
"\nut av denne pakken."
"\n\n\nTRYKK FOR Å FORTSETTE."))
(set #install-which
(cat "\nHvilke deler av XPKatana-arkivet vil"
"\ndo installere på din hard disk?\n"))
(set #tools-dest
(cat "\nI hvilken katalog vil du ha hoveddelen av XPKatana "
"\ninstallert i?\n"))
(set #docs-dest
(cat "\nHvor vil du installere dokumentasjonen?\n"))
(set #rexx-dest
(cat "\nHvor vil du installere Arexx skriptene?\n"))
(set #install-arexx-help
(cat "\nDette vil installere Arexx skriptene for å "
"\nutvide funksjonaliteten til XPKatana."))
(set #exit-message
(cat "\nXPKatana er nå fullstendig installert!"
"\nKos deg."))
(set #install-library
("\nInstallerer FileID.library til Libs:"))
; ------------------------------
; Check Kickstart Version
; ------------------------------
(if (< (getversion "LIBS:version.library") (* 37 65536))
(abort #bad-kick)
)
(message #hello-message)
; ------------------------------
; What should I install?
; ------------------------------
(set InstallOpt
(askoptions (prompt #install-which)
(help @askoptions-help)
(choices "XPKatana" "Arexx skripts" "FileID.library"
"Dokumentasjon")
)
)
(if (= InstallOpt 0)
(abort (cat "\n\nInstallasjonen avbrutt :(")
"\n\nIngen filer valgt for installering!")
)
;-------------------------------------------------------
;Install binary, Icons, and support files
;-------------------------------------------------------
(if (BITAND InstallOpt 1)
((set destdir
(askdir
(prompt #tools-dest)
(help @askdir-help)
(default "Sys:Utilities")
)
)
(set @default-dest destdir)
(copyfiles
(source "/XPKatana")
(dest destdir)
(infos)
)
)
)
;-------------------------------------------------------
;Insall Arexx scripts
;-------------------------------------------------------
(if (BITAND InstallOpt 2)
((set destdir
(askdir
(prompt #rexx-dest)
(help #install-arexx-help)
(default "REXX:")
)
)
(copyfiles
(source "/ARexx")
(dest destdir)
(all)
)
)
)
;-------------------------------------------------------
;Install FileID.library files
;-------------------------------------------------------
(if (BITAND InstallOpt 4)
((copylib
(prompt #install-library)
(source "/Libs/FileID.library")
(dest "Libs:")
)
(if (exists "Locale:catalogs/deutsch")
(copyfiles
(source "/Locale/catalogs/deutsch/FileID_lib.catalog")
(dest "Locale:catalogs/deutsch")
)
)
)
)
;-------------------------------------------------------
;Install FileID.library files
;-------------------------------------------------------
(if (BITAND InstallOpt 8)
((set destdir
(askdir
(prompt #docs-dest)
(help @askdir-help)
(default "Help:")
)
)
(copyfiles
(source "/Docs/XPKatana_eng.guide")
(dest destdir)
(newname "XPKatana.guide")
(infos)
)
)
)
(exit #exit-message)